MacWorld 1996 April/Macworld (1996-04).dmg/Educational Demos/Goldilocks Gamebook/Goldilocks.DIR/00538_Script_538

Text File | 1995-11-20 | 637b | 26 lines

-- Go Game

on mouseDown
  global MC
  puppetSound "Click.AIF"
  put mouseCast() into MC
  repeat while stillDown() = 1
    if mouseCast() = MC then
      set the castNum of sprite (the ClickOn) to MC +1
      updateStage
      next repeat
    end if
    if (mouseCast() <> MC + 1) then set the castNum of sprite (the ClickOn) to MC
    updateStage
  end repeat
end

on mouseUp
  global MC,pageCount,theGame
  set the castNum of sprite (the clickOn) to MC
  updateStage
  if the mouseCast = MC or the mouseCast = MC + 1 then
    resetAll
    go to "GameIntro"
  end if
end